Option Explicit
Sub C_Sample008()
    Dim myRng As Range
    Set myRng = Range("A1")					'Nxs
    Cells.Clear							'xs檺M
    Range("B1") = 3						']wƭ
    Range("B2") = 10
    Range("B3") = 26
    'ǳƨ즹
    myRng.Formula = "=SUM(B1:B3)"				']w
    'myRng.Value = "=SUM(B1:B3)"
    Set myRng = Nothing						'
End Sub
